home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / Q4.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  37 lines
  1. 10  HOME : TEXT 
  2. 20  PRINT : PRINT 
  3. 50  INVERSE 
  4. 58  PRINT "                                       "
  5. 60  PRINT "                OTAMOT                 "
  6. 62  PRINT "                                       "
  7. 70  PRINT : PRINT : PRINT 
  8. 80  NORMAL 
  9. 90  PRINT "Spell the word you will see when the    above is put in front of the mirror.    Then press RETURN."
  10. 100  PRINT : PRINT : PRINT 
  11. 110  PRINT : PRINT : PRINT 
  12. 130  INPUT ANSWER$
  13. 140  IF ANSWER$ = "TOMATO"  OR ANSWER$ = "tomato"  THEN  GOSUB 200
  14. 150  GOSUB 300
  15. 190  END 
  16. 200  HOME : TEXT 
  17. 202  PRINT : PRINT 
  18. 204  PRINT "That's right!!  Let's go on to the      next question."
  19. 206  PRINT : PRINT : PRINT : PRINT 
  20. 208  PRINT : PRINT : PRINT : PRINT 
  21. 210  FOR I = 0 TO 600
  22. 212 J = 1
  23. 214  NEXT I
  24. 216  PRINT  CHR$(4);"run q5"
  25. 218  RETURN 
  26. 300  HOME : TEXT 
  27. 302  PRINT : PRINT 
  28. 304  PRINT "Press <P> to try again or press any     other key to get the solution."
  29. 306  PRINT : PRINT : PRINT : PRINT 
  30. 308  PRINT : PRINT : PRINT : PRINT 
  31. 310  GET KY$
  32. 312  IF KY$ = "p"  OR KY$ = "P"  THEN  GOTO 10
  33. 314  PRINT "Answer = TOMATO"
  34. 315  PRINT 
  35. 316  PRINT : PRINT "Press any key to move on."
  36. 318  GET KY$
  37. 320  PRINT  CHR$(4);"run q5"